object ickullanimparcadegisimiF: TickullanimparcadegisimiF
  Left = 193
  Top = 108
  Width = 265
  Height = 260
  Caption = #304#231' Kullan'#305'm Par'#231'a De'#287'i'#351'imi'
  Color = clBtnFace
  Font.Charset = TURKISH_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'Arial'
  Font.Style = []
  OldCreateOrder = False
  Position = poMainFormCenter
  OnClose = FormClose
  PixelsPerInch = 96
  TextHeight = 14
  object Label1: TLabel
    Left = 8
    Top = 16
    Width = 50
    Height = 14
    Caption = 'Onar'#305'm No'
  end
  object Bevel1: TBevel
    Left = 7
    Top = 43
    Width = 244
    Height = 2
    Shape = bsFrame
  end
  object Label2: TLabel
    Left = 8
    Top = 64
    Width = 35
    Height = 14
    Caption = 'Seri No'
  end
  object Label3: TLabel
    Left = 8
    Top = 88
    Width = 49
    Height = 14
    Caption = 'Stok Kodu'
  end
  object Bevel2: TBevel
    Left = 7
    Top = 115
    Width = 244
    Height = 2
    Shape = bsFrame
  end
  object Label4: TLabel
    Left = 8
    Top = 136
    Width = 59
    Height = 14
    Caption = 'Yeni Seri No'
  end
  object Label5: TLabel
    Left = 8
    Top = 160
    Width = 49
    Height = 14
    Caption = 'Stok Kodu'
  end
  object Bevel3: TBevel
    Left = 7
    Top = 187
    Width = 244
    Height = 2
    Shape = bsFrame
  end
  object onarimnok: TEdit
    Left = 72
    Top = 8
    Width = 121
    Height = 22
    TabOrder = 0
    OnKeyPress = onarimnokKeyPress
  end
  object eskiserinok: TwwDBEdit
    Left = 72
    Top = 56
    Width = 121
    Height = 22
    TabStop = False
    Color = clBtnFace
    DataField = 'serino'
    DataSource = OnarimQS
    ReadOnly = True
    TabOrder = 1
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object stokkoduk: TwwDBEdit
    Left = 72
    Top = 80
    Width = 121
    Height = 22
    TabStop = False
    Color = clBtnFace
    DataField = 'stokkodu'
    DataSource = OnarimQS
    ReadOnly = True
    TabOrder = 2
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object yeniserinok: TEdit
    Left = 72
    Top = 128
    Width = 121
    Height = 22
    TabOrder = 3
    OnKeyPress = yeniserinokKeyPress
  end
  object yenistokkoduk: TwwDBEdit
    Left = 72
    Top = 152
    Width = 121
    Height = 22
    TabStop = False
    Color = clBtnFace
    DataField = 'stokkodu'
    DataSource = fatharharQS
    ReadOnly = True
    TabOrder = 4
    UnboundDataType = wwDefault
    WantReturns = False
    WordWrap = False
  end
  object bparcadegistir: TBitBtn
    Left = 7
    Top = 198
    Width = 86
    Height = 25
    Caption = 'Par'#231'a De'#287'i'#351'tir'
    TabOrder = 5
    OnClick = bparcadegistirClick
  end
  object bkapat: TBitBtn
    Left = 163
    Top = 198
    Width = 86
    Height = 25
    Caption = 'Kapat'
    TabOrder = 6
    OnClick = bkapatClick
  end
  object OnarimQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'onarimno'
        Attributes = [paSigned]
        DataType = ftInteger
        Precision = 10
        Size = 4
        Value = 30000
      end>
    SQL.Strings = (
      
        'select durumu=(select durumu from teknik where teknik.formno=ona' +
        'rim.formno),dbo.getstokkodu(stokkod) as stokkodu,* from onarim w' +
        'here onarimno=:onarimno ')
    Left = 228
    Top = 8
  end
  object OnarimQS: TDataSource
    DataSet = OnarimQ
    Left = 196
    Top = 8
  end
  object fatharharQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = '0000222222'
      end>
    SQL.Strings = (
      
        'select dbo.getstokkodu(stokkod) as stokkodu,* from fatharhar whe' +
        're serinos=:serinos')
    Left = 228
    Top = 136
  end
  object fatharharQS: TDataSource
    DataSet = fatharharQ
    Left = 196
    Top = 136
  end
  object EskifatharharQ: TADOQuery
    Connection = dm.connect
    CursorType = ctStatic
    Parameters = <
      item
        Name = 'serinos'
        DataType = ftString
        NumericScale = 255
        Precision = 255
        Size = 50
        Value = '0000222222'
      end>
    SQL.Strings = (
      
        'select dbo.getstokkodu(stokkod) as stokkodu,* from fatharhar whe' +
        're serinos=:serinos')
    Left = 228
    Top = 80
  end
end
